Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/fbr12c/fbrunway.frm

Text File | 1995-09-06 | 22KB | 739 lines

VERSION 2.00
Begin Form FBRunway
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "FileBoy's Runway 1.2c"
   ClientHeight    =   1560
   ClientLeft      =   1335
   ClientTop       =   2730
   ClientWidth     =   6675
   FontBold        =   0   'False
   FontItalic      =   0   'False
   FontName        =   "MS Sans Serif"
   FontSize        =   8.25
   FontStrikethru  =   0   'False
   FontUnderline   =   0   'False
   ForeColor       =   &H00000000&
   Height          =   2250
   Icon            =   FBRUNWAY.FRX:0000
   Left            =   1275
   LinkMode        =   1  'Source
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   1560
   ScaleWidth      =   6675
   Top             =   2100
   Width           =   6795
   Begin ComboBox RunLine
      BackColor       =   &H00FFFFFF&
      Height          =   300
      Left            =   255
      Sorted          =   -1  'True
      TabIndex        =   0
      Top             =   615
      Width           =   6165
   End
   Begin CommandButton BtnClose
      Caption         =   "Close"
      Height          =   360
      Left            =   5325
      TabIndex        =   5
      Top             =   -15
      Width           =   1365
   End
   Begin CommandButton BtnRun
      Caption         =   "Run"
      Height          =   360
      Left            =   3990
      TabIndex        =   4
      Top             =   -15
      Width           =   1350
   End
   Begin CommandButton BtnSave
      Caption         =   "Save"
      Height          =   360
      Left            =   2655
      TabIndex        =   3
      Top             =   -15
      Width           =   1350
   End
   Begin CommandButton BtnDel
      Caption         =   "Remove"
      Height          =   360
      Left            =   1320
      TabIndex        =   2
      Top             =   -15
      Width           =   1350
   End
   Begin CommandButton BtnAdd
      Caption         =   "Add"
      Height          =   360
      Left            =   -15
      TabIndex        =   1
      Top             =   -15
      Width           =   1350
   End
   Begin Label Label3
      Alignment       =   2  'Center
      BackColor       =   &H00C0C0C0&
      Caption         =   "On Use:"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      ForeColor       =   &H00000080&
      Height          =   210
      Left            =   4860
      TabIndex        =   8
      Top             =   1170
      Width           =   1665
   End
   Begin Label Label2
      Alignment       =   2  'Center
      BackColor       =   &H00C0C0C0&
      Caption         =   "Auto-Save:"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      ForeColor       =   &H00000080&
      Height          =   210
      Left            =   3315
      TabIndex        =   7
      Top             =   1170
      Width           =   1485
   End
   Begin Label Label1
      Alignment       =   2  'Center
      BackColor       =   &H00C0C0C0&
      Caption         =   "Run App:"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      ForeColor       =   &H00000080&
      Height          =   210
      Left            =   150
      TabIndex        =   6
      Top             =   1170
      Width           =   3105
   End
   Begin Menu MnuFile
      Caption         =   "&File"
      Begin Menu MRun
         Caption         =   "&Run"
         Shortcut        =   ^R
      End
      Begin Menu Sep1
         Caption         =   "-"
      End
      Begin Menu MAdd
         Caption         =   "&Add"
         Shortcut        =   {F2}
      End
      Begin Menu MDel
         Caption         =   "Re&move"
         Shortcut        =   {F3}
      End
      Begin Menu MSave
         Caption         =   "&Save"
         Shortcut        =   ^S
      End
      Begin Menu Sep2
         Caption         =   "-"
      End
      Begin Menu MAss
         Caption         =   "Associate"
         Shortcut        =   +{F9}
      End
      Begin Menu Sep3
         Caption         =   "-"
      End
      Begin Menu MClose
         Caption         =   "&Close"
         Shortcut        =   ^C
      End
   End
   Begin Menu MnuOption
      Caption         =   "&Options"
      Begin Menu MnuRunApp
         Caption         =   "&Run App As..."
         Begin Menu MOpt
            Caption         =   "&1 Normal"
            Index           =   1
            Shortcut        =   +{F1}
         End
         Begin Menu MOpt
            Caption         =   "&2 Minimized"
            Index           =   2
            Shortcut        =   +{F2}
         End
         Begin Menu MOpt
            Caption         =   "&3 Maximized"
            Index           =   3
            Shortcut        =   +{F3}
         End
         Begin Menu MOpt
            Caption         =   "&4 Normal w/o Focus"
            Index           =   4
            Shortcut        =   +{F4}
         End
         Begin Menu MOpt
            Caption         =   "&5 Minimized w/o Focus"
            Index           =   7
            Shortcut        =   +{F5}
         End
      End
      Begin Menu Sep4
         Caption         =   "-"
      End
      Begin Menu MnuOnUse
         Caption         =   "Action On Use..."
         Begin Menu MUse
            Caption         =   "&Close on Use"
            Index           =   0
            Shortcut        =   +{F6}
         End
         Begin Menu MUse
            Caption         =   "&Minimize"
            Index           =   1
            Shortcut        =   +{F7}
         End
         Begin Menu MUse
            Caption         =   "&Remain"
            Index           =   2
            Shortcut        =   +{F8}
         End
      End
      Begin Menu Sep5
         Caption         =   "-"
      End
      Begin Menu MAuto
         Caption         =   "&Auto-Save on Close"
         Checked         =   -1  'True
         Shortcut        =   ^A
      End
   End
   Begin Menu MnuHelp
      Caption         =   "&Help"
      Begin Menu MHlp
         Caption         =   "&Index"
         Shortcut        =   {F1}
      End
      Begin Menu MHlp1
         Caption         =   "&Help On Help"
      End
      Begin Menu Sep6
         Caption         =   "-"
      End
      Begin Menu MInfo
         Caption         =   "&About"
      End
   End
End
DefInt A-Z
Dim ListChg As Integer
Declare Function WinExec Lib "Kernel" (ByVal lpCmdLine As String, ByVal nCmdShow As Integer) As Integer
Declare Sub BringWindowToTop Lib "User" (ByVal hWnd As Integer)
Declare Function GetModuleHandle% Lib "Kernel" (ByVal lpProgramName$)
Declare Function GetModuleUsage% Lib "Kernel" (ByVal hProgram%)
Declare Function GetPrivateProfileInt Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault As Integer, ByVal lpFileName As String) As Integer
Declare Function GetPrivateProfileString Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFileName As String) As Integer
Declare Function WritePrivateProfileString Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As Any, ByVal lplFileName As String) As Integer
Declare Function GetClassWord Lib "User" (ByVal hWnd As Integer, ByVal nIndex As Integer) As I